Mac Mania 2/MacMania 2.toast/Demo's/Tools&Utilities/HyperCard/DataBase 1.0.1/DataBase 1.0v1/DataBase 1.0v1/background_3664.xml

Extensible Markup Language | 1993-04-26 | 32.5 KB | 902 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>3664</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3997.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_6249.css" />
    <part>
        <id>81</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>11</left>
            <top>21</top>
            <right>79</right>
            <bottom>37</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>underline</textStyle>
        <textHeight>16</textHeight>
        <name>Title Label</name>
        <script></script>
    </part>
    <part>
        <id>80</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>11</left>
            <top>75</top>
            <right>79</right>
            <bottom>91</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>underline</textStyle>
        <textHeight>16</textHeight>
        <name>Author Label</name>
        <script></script>
    </part>
    <part>
        <id>79</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>11</left>
            <top>113</top>
            <right>79</right>
            <bottom>129</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>underline</textStyle>
        <textHeight>16</textHeight>
        <name>Address Label</name>
        <script></script>
    </part>
    <part>
        <id>75</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>11</left>
            <top>151</top>
            <right>79</right>
            <bottom>167</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>underline</textStyle>
        <textHeight>16</textHeight>
        <name>Source Label</name>
        <script></script>
    </part>
    <part>
        <id>82</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>11</left>
            <top>190</top>
            <right>79</right>
            <bottom>206</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>underline</textStyle>
        <textHeight>16</textHeight>
        <name>Abstract Label</name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>78</left>
            <top>21</top>
            <right>411</right>
            <bottom>73</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Title</name>
        <script></script>
    </part>
    <part>
        <id>97</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>78</left>
            <top>75</top>
            <right>411</right>
            <bottom>111</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Author</name>
        <script></script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>78</left>
            <top>113</top>
            <right>411</right>
            <bottom>149</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Address</name>
        <script></script>
    </part>
    <part>
        <id>98</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>78</left>
            <top>151</top>
            <right>411</right>
            <bottom>187</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Source</name>
        <script></script>
    </part>
    <part>
        <id>99</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>78</left>
            <top>190</top>
            <right>411</right>
            <bottom>290</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Abstract</name>
        <script></script>
    </part>
    <part>
        <id>22</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>446</left>
            <top>31</top>
            <right>487</right>
            <bottom>76</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>24004</icon>
        <textAlign>center</textAlign>
        <font>Avant Garde</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUp
set cursor to watch
go home
end mouseUp
</script>
    </part>
    <part>
        <id>51</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>440</left>
            <top>227</top>
            <right>502</right>
            <bottom>247</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Avant Garde</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New</name>
        <script>on mouseUp
-- Requires handler: toggleMark
-- create a new card and leaving the cursor into the name field
set lockMessages to true
doMenu "New Card"
toggleMark false
select after text of bg field id 4
end mouseUp
</script>
    </part>
    <part>
        <id>52</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>440</left>
            <top>256</top>
            <right>502</right>
            <bottom>276</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Avant Garde</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Delete</name>
        <script>on mouseUp
-- Requires handler: deleteCurrentCard
if the optionKey is down then
doMenu "Delete Card"
exit mouseUp
end if
if the number of cards in this bkgnd = 1 then
answer "Can't delete the last database card." with "OK" -- ∆
exit to hyperCard
end if
answer "Delete this data card?" with "Cancel" or "OK" -- ∆
if it is "OK" then -- ∆
set cursor to watch
get number of this card
lock screen
doMenu "Delete Card"
go card it - 1
unlock screen
end if
end mouseUp
</script>
    </part>
    <part>
        <id>53</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>440</left>
            <top>198</top>
            <right>502</right>
            <bottom>218</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Avant Garde</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Find…</name>
        <script>on mouseUp
-- Requires handler: findText
global DataBaseFind
ask "What text do you want to find?" with DataBaseFind -- ∆
if it is empty then exit mouseUp
else
put it into DataBaseFind
findText
end if
end mouseUp</script>
    </part>
    <part>
        <id>76</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>444</left>
            <top>99</top>
            <right>470</right>
            <bottom>122</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20461</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>on mouseDown
-- go to the previous card
-- if the shift key is down go to the previously marked card
visual effect wipe right very fast
if the shiftKey is down then go previous marked card
else if the commandKey is down then go first card of this bkgnd
else go prev card of this bkgnd
end mouseDown

on mouseStillDown
-- Requires handler: mouseDown
mouseDown
end mouseStillDown</script>
    </part>
    <part>
        <id>77</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>477</left>
            <top>99</top>
            <right>502</right>
            <bottom>122</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>22126</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>on mouseDown
-- go to the next card
-- if the shift key is down go to the next marked card
visual effect wipe right very fast
if the shiftKey is down then go next marked card
else if the commandKey is down then go last card of this bkgnd
else go next card of this bkgnd
end mouseDown

on mouseStillDown
-- Requires handler: mouseDown
mouseDown
end mouseStillDown</script>
    </part>
    <part>
        <id>103</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>429</left>
            <top>317</top>
            <right>502</right>
            <bottom>341</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Avant Garde</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Marked</name>
        <script>on mouseUp
-- Requires handler: toggleMark
toggleMark not marked of this card
end mouseUp
</script>
    </part>
    <part>
        <id>110</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>291</left>
            <top>322</top>
            <right>393</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Avant Garde</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Nummer</name>
        <script></script>
    </part>
    <part>
        <id>111</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>165</left>
            <top>317</top>
            <right>258</right>
            <bottom>341</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Avant Garde</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Photocopy</name>
        <script></script>
    </part>
    <part>
        <id>113</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>26</left>
            <top>322</top>
            <right>146</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Avant Garde</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Markede</name>
        <script></script>
    </part>
    <part>
        <id>114</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>11</left>
            <top>293</top>
            <right>79</right>
            <bottom>309</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Avant Garde</font>
        <textSize>12</textSize>
        <textStyle>underline</textStyle>
        <textHeight>16</textHeight>
        <name>PubYear Label</name>
        <script></script>
    </part>
    <part>
        <id>115</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>78</left>
            <top>293</top>
            <right>149</right>
            <bottom>309</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Avant Garde</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>PubYear</name>
        <script></script>
    </part>
    <part>
        <id>116</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>182</left>
            <top>293</top>
            <right>249</right>
            <bottom>309</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Avant Garde</font>
        <textSize>12</textSize>
        <textStyle>underline</textStyle>
        <textHeight>16</textHeight>
        <name>PubCountry Label</name>
        <script></script>
    </part>
    <part>
        <id>117</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>248</left>
            <top>293</top>
            <right>411</right>
            <bottom>309</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Avant Garde</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>PubCountry</name>
        <script></script>
    </part>
    <part>
        <id>121</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>444</left>
            <top>129</top>
            <right>470</right>
            <bottom>154</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>30557</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <name>First Card of This Bkgnd</name>
        <script>on mouseUp
go to first card of this background
end mouseUp
</script>
    </part>
    <part>
        <id>122</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>477</left>
            <top>129</top>
            <right>502</right>
            <bottom>154</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26865</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <name>Last Card of This Bkgnd</name>
        <script>on mouseUp
set cursor to busy
go to last card of this background
end mouseUp
</script>
    </part>
    <part>
        <id>123</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>440</left>
            <top>170</top>
            <right>502</right>
            <bottom>190</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Avant Garde</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Index</name>
        <script>on mouseUp
go to card "Index"
end mouseUp</script>
    </part>
    <content>
        <layer>background</layer>
        <id>75</id>
        <text>Source:</text>
    </content>
    <content>
        <layer>background</layer>
        <id>80</id>
        <text>Author(s):</text>
    </content>
    <content>
        <layer>background</layer>
        <id>79</id>
        <text>Address:</text>
    </content>
    <content>
        <layer>background</layer>
        <id>82</id>
        <text>Abstract:</text>
    </content>
    <content>
        <layer>background</layer>
        <id>81</id>
        <text>Title:</text>
    </content>
    <content>
        <layer>background</layer>
        <id>114</id>
        <text>Year:</text>
    </content>
    <content>
        <layer>background</layer>
        <id>116</id>
        <text>Country:</text>
    </content>
    <name>Body</name>
    <script>‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû
Script from background script "Body" of DataBase stack

THE MESSAGE HANDLERS IN THIS SCRIPT:
openCard,nd,closeBackground,arrowKey,sortCards,findText
returnKey,enterKey, toggleMark
importText,importTextFile,exportText
writeExportedText,deleteCurrentCard, deleteAllCards

THE FUNCTION HANDLERS IN THIS SCRIPT:
lastHCItem,theFields
‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû‚àû

on openCard
-- Requires handler: toggleMark
toggleMark the marked of this card
put "Card" && the number of this card && "of" && ¬
the number of cards - 4 into bkgnd field id 110
put "No. marked:" && the number of marked cards into bg field id 113
pass openCard
end openCard

on openBackground
-- Requires handler: setLocationCheckMark
setLocationCheckMark(short name of this card)
end openBackground

on closeBackground
push card -- Store current card for possible return
pass closeBackground
end closeBackground

on arrowKey whichKey
if (((whichKey is "left") or (whichKey is "Right")) and (the shiftKey is down))
then go next marked card
else pass arrowKey
end arrowKey

-----  Sort Handlers  ------------------------------------------------

on sortCards sortField
put "sort cards of this bkgnd international" into sortBody
if sortField is "Title" then
do sortBody && "by bg field" && quote & sortField & quote
else if sortField is "Author" then
do sortBody && "by bg field" && quote & sortField & quote
else -- source
do sortBody && "by bg field" && quote & sortField & quote
end if
end sortCards

-----  Find Handlers  ------------------------------------------------

on findText
global DataBaseFind
if DataBaseFind is empty then exit findText
find DataBaseFind
if the result is NOT empty then
beep
answer "“" & DataBaseFind & "” was not found." -- ∆
exit findText
end if
end findText

on returnKey
-- Requires handler: findText
-- if the cursor is not in a field or in the message box, then
-- assume they want to find the text again.
global DataBaseFind
if DataBaseFind is not empty and the selectedField is empty
then findText else pass returnKey
end returnKey

on enterKey
-- Requires handler: findText
-- if the cursor is not in a field or in the message box, then
-- assume they want to find the text again.
global DataBaseFind
if DataBaseFind is not empty and the selectedField is empty
then findText else pass enterKey
end enterKey

-----  Misc Handlers  ------------------------------------------------

on toggleMark isMarked
-- hilite ('x') the card to reflect its 'marked' status
if isMarked then
set hilite of bg btn id 103 to true
set the marked of this card to true
else
set hilite of bg btn id 103 to false
set the marked of this card to false
end if
end toggleMark

-----  Import Text Operations  -------------------------------

-- text files to be imported into the stack need to be in a specific
-- format: chunks of information (such as Title, Author,
-- etc.) should be separated by returns

on importText
-- Requires handlers: importTextFile
-- import text a text file
answer "Import text from a text file ?" ¬
with "Cancel" or "Text File" -- ∆
if it is "Cancel" then exit importText -- ∆
else importTextFile
end importText

on importTextFile fileName
-- Requires handler: deleteCurrentCard
-- Requires function handler: theFields
-- import text from a text file stored in the correct format
if fileName is empty then
answer file "Import text from what file?" of type "TEXT" -- ∆
if the result is "Cancel" or it is empty then exit importTextFile
put it into fileName
end if
set cursor to watch
go last card of background "Body" -- add the new cards to the end of the stack
set lockRecent to true
set lockMessages to true
open file fileName
put false into exitLoop
repeat until exitLoop
if the mouseClick then
answer "Stop importing text?" with "No" or "Yes" -- ∆
if it is "Yes" then exit repeat -- ∆
end if
set cursor to busy
doMenu "New Card"
toggleMark false
repeat with fieldNum = 1 to (number of items in theFields() + 2)
read from file fileName until return
if it is empty then -- out of text
deleteCurrentCard -- delete the straggler
put true into exitLoop
exit repeat
end if
if last char of it is return then delete last char of it
if fieldNum > 2 then do "put it into" && ¬
item fieldNum - 2 of theFields()
end repeat
if exitLoop then exit repeat
read from file fileName until return
end repeat
close file fileName
set lockRecent to false
set lockMessages to false
end importTextFile

-----  Export Text Operations  -------------------------------------

on exportText
-- Requires handler: writeExportedText
-- Requires function handler: lastHCItem
-- if shiftKey is down use only the marked cards
put true into useAllCards -- assume all cards as default
if the shiftKey is down then put false into useAllCards -- use marked cards
if not useAllCards then
put "from marked cards" & space into prompt -- ∆
put number of marked cards into numCards
else
put empty into prompt
put number of cards in bg id 3664 into numCards
end if
ask file "Export text" && prompt & "to the file:" with "DataBase Text File" -- ∆
if the result is "Cancel" or it is empty then exit exportText
put it into fileName
writeExportedText numCards,useAllCards,fileName
put "cards" into info -- assume more than 1 card as the default -- ∆
if numCards = 1 then put "card" into info -- ∆
answer "Text from" && numCards && info && ¬
"was exported to the new file “" & lastHCItem(":",fileName) & "”." -- ∆
end exportText

on writeExportedText numCards,useAllCards,fileName
-- Requires function handler: theFields
lock screen
if useAllCards then go card 1 of bg id 3664
else go first marked card
open file fileName
repeat with currentCard = 1 to numCards
set cursor to busy
put empty into theText
repeat with count = 1 to (number of items in theFields())
put value of (item count of theFields()) & tab after theText
end repeat
put return after theText
write theText to file fileName
if not useAllCards then go next marked card
else go next card of this bkgnd
end repeat
close file fileName
unlock screen
end writeExportedText

-----  Utility Handlers  --------------------------------------------

on deleteCurrentCard
lock screen
push previous card
doMenu "Delete Card"
pop card
unlock screen
end deleteCurrentCard

on deleteAllCards
-- a utility handler to clean all the cards out of the stack
lock screen
set lockMessages to true
go cd 1 of bg "body"
if the number of cds in this bg = 1 then exit deleteAllCards
repeat the number of cds in this bg - 1
set cursor to busy
set the cantDelete of this cd to false
doMenu delete card
end repeat
end deleteAllCards

function lastHCItem delim,theText
-- returns the portion of <theText> that follows the last <delim>
if delim is in theText then
put lastHCItem(delim,char offset(delim,theText) + 1 to ¬
length(theText) of theText) into theText
end if
return theText
end lastHCItem

-----  Data Handlers  ----------------------------------------------

function theFields
return "bg fld id 4,bg fld id 97,bg fld id 6," & ¬
"bg fld id 98,bg fld id 115,bg fld id 117,bg fld id 99"
end theFields</script>
</background>